﻿''' <summary>
''' 文件综合信息类
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class FileCommunication
    Implements ICloneable

  
    ''' <summary>
    ''' 文件信息类 (编号，文件名，路径，高程 数据) 
    ''' </summary>
    ''' <remarks></remarks>
    Private m_FarStations As New FarStations

    ''' <summary>
    ''' CD144格式 结构类
    ''' </summary>
    ''' <remarks></remarks>
    Private m_ArrStructureTerra(-1) As StructureTerra

    ''' <summary>
    ''' 文件信息类 (编号，文件名，路径，高程 数据) 
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property FarStations() As FarStations
        Get
            Return Me.m_FarStations
        End Get
        Set(ByVal value As FarStations)
            Me.m_FarStations = value
        End Set
    End Property

    ''' <summary>
    ''' CD144 结构类
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property ArrStructureTerra() As StructureTerra()
        Get
            Return Me.m_ArrStructureTerra
        End Get
        Set(ByVal value As StructureTerra())
            Me.m_ArrStructureTerra = value
        End Set
    End Property
    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New FileCommunication
        obj.FarStations = Me.m_FarStations
        ReDim obj.ArrStructureTerra(Me.m_ArrStructureTerra.Length - 1)
        For i As Integer = 0 To Me.m_ArrStructureTerra.Length - 1
            obj.ArrStructureTerra(i) = Me.m_ArrStructureTerra(i).Clone
        Next
        Return obj
    End Function
End Class
